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INTEGER PROCEDURE GET_TOKEN(REFERENCE TO OBJECT, REFERENCE TO TOKEN); 

TOKENINXV := TOKENGETTOKEN ; 

% TOKEN GETTOKEN is a procedure which obtains an available slot 
% in the token data array. 

% TOKEN RETURNTOKEN is the complementary procedure. It returns a 
% slot in the token data array to the available list, 
i— IF TOKENINXV EQL 0 THEN 
BEGIN 

402 1 * No slot availaole 

GETTOKENV := TOKENRESOURCELJMIT; 
END ELSE 
BEGIN 

403 LOCK{TOKEN_DATA[TOKENINXV] .LOCK); 
IF OBJECT . TOKENINX NEQ 0 THEN 
BEGIN 

GETTOKENV := TOKENALREADYDONE; 
EXISTING_TOKENINXV := OBJECT . TOKENINX ; 
END ELSE 
BEGIN 

TOKEND ATA[TOKENINXV] . REUSECOUNT : = 
TOKEN_D ATA[TOKENINXy] . REUSE_COUNT + 1 ; 
TOKEN_DATA[TOKENINXVj . OBJECT REFERENCE : = 
405 REFERENCE TO OBJECT; 

TOKEN_DATA[TOKENINXV]. VALID := TRUE; 
TOKENV.TOKEN_REUSECOUNTF : = 
TOKEND ATA [TOKENINXV] . REUSE COUNT; 
TOKENV.TOKENINXF : = TOKENINXV; 
OB JE CT . TOKENINX := TOKENINXV; 
GET TOKENV := TOKENJSUCCESS; 
END; 

406 UNLOCK(TOKEN_DATA[TOKENINXV] .LOCK); 

EJF GET_TOKENV EQL TOKEN SUCCESS THEN 
BEGIN 
TOKEN := TOKENV; 
END ELSE 

IF GET_TOKENV EQL TOKEN ALREADYDONE THEN 
BEGIN 

LOCK(TOKEN_DATA[EXISTING_TOKENINXV] .LOCK); 
IF TOKEN_DATA[EXISTING_TOKENINXV] .VALID AND 
(TOKEN_DATA[EXISTING_TOKENINXV] .OBJECTREFERENCE EQL 
REFERENCE TO OBJECT) THEN 
BEGIN 

TOKENV.TOKEN REUSECOUNTF : = 
TOKEN DATA [EXISTING_TOKENINXy| . REUSE_COUNT; 
TOKENV. TOKEN INXF := EXISTING TOKENINXV; 
END ELSE 
BEGIN 

GET TOKENV := TOKEN BADOBJECT; 
END; 

U^CCK(T0KEN_DATA[EXK™G_T0KENINXV].L0CK); 
410 TOKEN RETURNTOKEN(TOKENINXV) ; 

IF GETJTOKENV EQL TOKEN ALREADYDONE THEN 
TOKEN := TOKENV; 
END ELSE 
BEGIN 

TOKEN_RETURNTOKEN(TOKENINXV) ; 
END; 
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INTEGER PROCEDURE 
OPERATION_VIA_TOKEN(TOKEN,OPERATION_PARAMETERS); 
BEGIN 
INTEGER 

TOKENINXV; 



TOKENINXV := TOKEN. TOKENJNXF; 
" IF TOKENINXV LSS 1 OR 

TOKENINXV GEQ SIZE(TOKENDATA) THEN 
BEGIN 

OPERATIONVIATOKEN := TOKEN TOKENINVALID; 
- END ELSE 
BEGIN 

421 LOCK(TOKEN_D AT A[TOKENINX V] . LOCK) ; 

IF (NOT TOKEND AT A [TOKENINXV] .VALID) OR 
(TOKEN_DATA[TOKENINXV] .REUSE_COUNT NEQ 
TOKEN . TOKENREUSECOUNTF) THEN 

422 BEGIN 

OPERATION VIA TOKEN := TOKEN TOKENINV ALID ; 
L END ELSE 
BEGIN 

< perform operation on 

423 TOKEN_DATA[TOKENINXV] . OBJECTREFERENCE, 
using OPERA TION PARAMETERS > 
OPERATION VIA TOKEN : = TOKEN SUCCESS; 

_ END; 

424UNLOCK(TOKEN_DATA [TOKENINXV] . LOCK) ; 
END; 

END OPERATION VIA TOKEN; 
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INTEGER PROCEDURE RETURN_TOKEN(REFERENCE TO 

OBJECT); 

BEGIN 
INTEGER 

RETURNTOKENV , 
TOKENINXV; 

430 TOKENINXV : = OBJECT. TOKENINX; 
IF TOKENINXV EQL 0 THEN 
BEGIN 

% This assumes that OBJECT was allocated with TOKENINX 
% set to zero. 

RETURN TOKENV : = TOKENNOTOKEN; 
END ELSE 
BEGIN 

431 LOCK(TOKEN_DATA[TOKENINXV] .LOCK); 
— IF TOKEN_DATA[TOKENINXV] .VALID CAND 

(TOKEN_ DATA[TOKENINXV] .OBJECTREFERENCE 

EQL 

432 REFERENCE TO OBJECT) THEN 

BEGIN 

TOKEN_DATA[TOKENINXV]. VALID := FALSE; 
TOKEN D ATA[TOKENINXV] . OBJECTJREFERENCE : = 

0; 

OBJECT . TOKENINX : = 0; 
— RETURN TOKENV : = TOKENSUCCESS; 
END ELSE 
BEGIN 

RETURN TOKENV := TOKEN NOTOKEN; 
END; 

433 UNLOCK(TOKEN_D AT A [TOKENINXV] .LOCK); 
434 IF RETURN TOKENV EQL TOKEN SUCCESS THEN 
TOKENRETURNTOKEN(TOKENINXV) ; 
END; 
END; 

435 RETURN TOKEN : = RETURN TOKENV; 
END RETURN TOKEN; 
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INTEGER PROCEDURE TOKENGETTOKEN; 
BEGIN 

440 LOCK(TOKEN_AV AILLOCK) ; 

| IF TOKEN AVAILHEAD EQL 0 AND 

SIZE(TOKEN DATA) LSS TOKENMAXTOKENS THEN 
BEGIN 

% TOKEN MAXTOKENS is one more than the largest value 



assuming 



% will fit in TOKEN INXF and in TOKENINX of OBJECT, 



45C ( 



% that TOKENDATA is indexed origin zero. 

< Expand TOKEN DATA, initializing new entries with 
LOCK free, VALID false, and REUSECOUNT zero> 

< link new entries to avail list > 
END; 

IF TOKEN AVAILHEAD NEQ 0 THEN 
442 | BEGIN 

< De-link and return head of avail list> 
END ELSE 
BEGIN 

TOKEN GETTOKEN := 0; 
END; 

443 UNLOCK(TOKENAVAILLOCK) ; 
END TOKEN GETTOKEN; 

701^ 

PROCEDURE TOKENRETURNTOKEN(TOKENTNXV) ; 
VALUE TOKENINXV; 
INTEGER TOKENINXV; 
BEGIN 

IF TOKEN_DATA[TOKENINXV].REUSE_COUNT LSS 
TOKENREUSECOUNTMAX THEN 
BEGIN 

% TOKEN REUSECOUNTMAX is the largest value which will 

fit in 

% TOKEN REUSECOUNTF and in REUSE COUNT of 

[TOKEN J} AT A. 

LOCK(TOKEN_AV AILLOCK) ; 

< link to avail list > 
UNLOCK(TOKEN_AV AILLOCK) ; 

END; 

END TOKEN RETURNTOKEN; 
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